
* This is the primary replication file for "Denying the Obvious" by Chase Bloch and Roseanne McManus
* All of the analysis that appears in the manuscript and appendix can be found here, except for the bar graphs and mediation analysis.
* 
// Change the working directory. Replace the directory below with your own directory where you saved the data.
cd "C:\Users\rum842\Dropbox\3 One-Shot Papers\Open Secrets\Replication Files\DTO_ReplicationFiles\DataFiles"



****************************** ANALYSIS OF EXPERIMENT 1 ************************************************

clear all
import delimited "Experiment1_Iran.csv"
destring *, ignore("NA") replace

** Tables A1 and A2: Summary Statistics

sum age male hhi white black education republican democrat, d
sum esca_scaled denial reputation_scaled insulting certainty ma_scaled nc_scaled govtrust newstrust inttrust readfp, d


** Manipulation check, mentioned p. 16

tab ac3


** Figure 1 and Table A3: Main Regressions

eststo: reg esca_scaled denial ma_scaled nc_scaled govtrust newstrust inttrust readfp
estimates store m1 
eststo: reg reputation_scaled denial ma_scaled nc_scaled govtrust newstrust inttrust readfp
estimates store m2 
eststo: ologit insulting denial ma_scaled nc_scaled govtrust newstrust inttrust readfp 
estimates store m3
eststo: ologit certainty denial ma_scaled nc_scaled govtrust newstrust inttrust readfp
estimates store m4 

coefplot m1, title("M1: OLS Predicting Escalation Preferences") keep(denial ma_scaled nc_scaled govtrust newstrust inttrust readfp) legend(off) nolabel xline(0) coeflabels(reputation_scaled = "Reputation Scaled" denial = "Denial" ma_scaled = "Militant Assertiveness" nc_scaled = "National Chauvinism" govtrust = "Government Trust" newstrust = "News Trust" inttrust = "International Trust" readfp = "Foreign Policy Interest") 
graph save Graph "m1.gph", replace
coefplot m2, title("M2: OLS Predicting Reputation Concern") keep(denial ma_scaled nc_scaled govtrust newstrust inttrust readfp) legend(off) nolabel xline(0) coeflabels(reputation_scaled = "Reputation Scaled" denial = "Denial" ma_scaled = "Militant Assertiveness" nc_scaled = "National Chauvinism" govtrust = "Government Trust" newstrust = "News Trust" inttrust = "International Trust" readfp = "Foreign Policy Interest") 
graph save Graph "m2.gph", replace
coefplot m3, title("M3: Ordered Logit Predicting Insulted") keep(denial ma_scaled nc_scaled govtrust newstrust inttrust readfp) legend(off) nolabel xline(0) coeflabels(reputation_scaled = "Reputation Scaled" denial = "Denial" ma_scaled = "Militant Assertiveness" nc_scaled = "National Chauvinism" govtrust = "Government Trust" newstrust = "News Trust" inttrust = "International Trust" readfp = "Foreign Policy Interest") 
graph save Graph "m3.gph", replace
coefplot m4, title("M4: Ordered Logit Predicting Certainty") keep(denial ma_scaled nc_scaled govtrust newstrust inttrust readfp) legend(off) nolabel xline(0) coeflabels(reputation_scaled = "Reputation Scaled" denial = "Denial" ma_scaled = "Militant Assertiveness" nc_scaled = "National Chauvinism" govtrust = "Government Trust" newstrust = "News Trust" inttrust = "International Trust" readfp = "Foreign Policy Interest") 
graph save Graph "m4.gph", replace
gr combine m1.gph m2.gph m3.gph m4.gph
graph export Exp1CoefPlot.jpg, replace 

esttab using ResultsExp1.rtf, replace b(3) se(3) noconstant  star(* .10 ** .05 *** .01)  ///
	title("Iran: Escalation Preference and Mediators with Dispositional Controls") ///
	coeflabels(denial "Denial" ma_scaled "Military Assertiveness" nc_scaled "National Chauvinism" govtrust "Trust in Gov." newstrust "Trust in News" inttrust 		"International Trust" readfp "Foreign Policy Interest") ///
	mtitles("Escalation" "Reputation" "Certainty" "Insult")
eststo clear


** Table A4: Alternate regressions with no controls

eststo: reg esca_scaled denial 
eststo: reg reputation_scaled denial 
eststo: ologit insulting denial 
eststo: ologit certainty denial 


esttab using ResultsExp1.rtf, append b(3) se(3) noconstant  star(* .10 ** .05 *** .01)  ///
	title("Iran: Escalation Preference and Mediators without Controls") ///
	coeflabels(denial "Denial") ///
	mtitles("Escalation" "Reputation" "Certainty" "Insulting")
eststo clear


** Table A5: Alternate regressions with demographic controls

eststo: reg esca_scaled denial age male hhi white education republican democrat
eststo: reg reputation_scaled denial age male hhi white education republican democrat
eststo: ologit insulting denial age male hhi white education republican democrat
eststo: ologit certainty denial age male hhi white education republican democrat

esttab using ResultsExp1.rtf, append b(3) se(3) noconstant  star(* .10 ** .05 *** .01)  ///
	title("Iran: Escalation Preference and Mediators with Demographic Controls") ///
	coeflabels(denial "Denial" age "Age" male "Male" hhi "Household Income" white "White" education "Education" republican "Republican" democrat "Democrat") ///
	mtitles("Escalation" "Reputation" "Certainty" "Insulting")
eststo clear


** Table A22, Model 1: Weighted dependent variable

reg esca_scaled_wa denial ma_scaled nc_scaled govtrust newstrust inttrust readfp
// We put Table A22 together manually, since it includes regressions in three different datasets.


** Table A23: Militant Assertiveness Interactions

eststo: reg esca_scaled c.denial##c.ma_scaled nc_scaled govtrust newstrust inttrust readfp  
eststo: reg reputation_scaled c.denial##c.ma_scaled nc_scaled govtrust newstrust inttrust readfp
eststo: ologit insulting c.denial##c.ma_scaled nc_scaled govtrust newstrust inttrust readfp  
eststo: ologit certainty c.denial##c.ma_scaled nc_scaled govtrust newstrust inttrust readfp  

esttab using ResultsExp1.rtf, append b(3) se(3) noconstant  star(* .10 ** .05 *** .01)  ///
	coeflabels(denial "Denial" ma_scaled "Militant Assertiveness" nc_scaled "National Chauvinism" govtrust "Trust in Gov." newstrust "Trust in News" inttrust 		"International Trust" readfp "Foreign Policy Interest") ///
	mtitles("Escalation" "Reputation" "Insult" "Certainty")
eststo clear


** Figures A1 and A2: Extra Hawk-Dove Analysis

reg esca_scaled c.denial##c.ma_scaled nc_scaled govtrust newstrust inttrust readfp 
margins, at(denial=(0 1) ma_scaled=-2.559317) saving(dove, replace)
margins, at(denial=(0 1) ma_scaled=2.576155) saving(hawk, replace)
combomarginsplot dove hawk, recast(line)

histogram ma_scaled


** Table A26: National Chauvinism Interactions

eststo: reg esca_scaled c.denial##c.nc_scaled ma_scaled govtrust newstrust inttrust readfp  
eststo: reg reputation_scaled c.denial##c.nc_scaled ma_scaled govtrust newstrust inttrust readfp
eststo: ologit insulting c.denial##c.nc_scaled ma_scaled govtrust newstrust inttrust readfp  
eststo: ologit certainty c.denial##c.nc_scaled ma_scaled govtrust newstrust inttrust readfp  

esttab using ResultsExp1.rtf, append b(3) se(3) noconstant  star(* .10 ** .05 *** .01)  ///
	coeflabels(denial "Denial" ma_scaled "Militant Assertiveness" nc_scaled "National Chauvinism" govtrust "Trust in Gov." newstrust "Trust in News" inttrust 		"International Trust" readfp "Foreign Policy Interest") ///
	mtitles("Escalation" "Reputation" "Insult" "Certainty")
eststo clear


** Table A29: International Trust Interactions

eststo: reg esca_scaled c.denial##c.inttrust ma_scaled nc_scaled govtrust newstrust readfp 
eststo: reg reputation_scaled c.denial##c.inttrust ma_scaled nc_scaled govtrust newstrust readfp
eststo: ologit insulting c.denial##c.inttrust ma_scaled nc_scaled govtrust newstrust readfp 
eststo: ologit certainty c.denial##c.inttrust ma_scaled nc_scaled govtrust newstrust readfp  

esttab using ResultsExp1.rtf, append b(3) se(3) noconstant  star(* .10 ** .05 *** .01)  ///
	coeflabels(denial "Denial" ma_scaled "Militant Assertiveness" nc_scaled "National Chauvinism" govtrust "Trust in Gov." newstrust "Trust in News" inttrust 		"International Trust" readfp "Foreign Policy Interest") ///
	mtitles("Escalation" "Reputation" "Insult" "Certainty")
eststo clear


** Table A32: Media Trust Interactions

eststo: reg esca_scaled c.denial##c.newstrust ma_scaled nc_scaled govtrust  inttrust readfp  
eststo: reg reputation_scaled c.denial##c.newstrust ma_scaled nc_scaled govtrust  inttrust readfp
eststo: ologit insulting c.denial##c.newstrust ma_scaled nc_scaled govtrust inttrust readfp  
eststo: ologit certainty c.denial##c.newstrust ma_scaled nc_scaled govtrust inttrust readfp 

esttab using ResultsExp1.rtf, append b(3) se(3) noconstant  star(* .10 ** .05 *** .01)  ///
	coeflabels(denial "Denial" ma_scaled "Militant Assertiveness" nc_scaled "National Chauvinism" govtrust "Trust in Gov." newstrust "Trust in News" inttrust 		"International Trust" readfp "Foreign Policy Interest") ///
	mtitles("Escalation" "Reputation" "Insult" "Certainty")
eststo clear


** Table A35: Government Trust Interactions

eststo: reg esca_scaled c.denial##c.govtrust ma_scaled nc_scaled newstrust inttrust readfp  
eststo: reg reputation_scaled c.denial##c.govtrust  ma_scaled nc_scaled newstrust inttrust readfp
eststo: ologit insulting c.denial##c.govtrust ma_scaled nc_scaled newstrust inttrust readfp  
eststo: ologit certainty c.denial##c.govtrust ma_scaled nc_scaled newstrust inttrust readfp  

esttab using ResultsExp1.rtf, append b(3) se(3) noconstant  star(* .10 ** .05 *** .01)  ///
	coeflabels(denial "Denial" ma_scaled "Militant Assertiveness" nc_scaled "National Chauvinism" govtrust "Trust in Gov." newstrust "Trust in News" inttrust 		"International Trust" readfp "Foreign Policy Interest") ///
	mtitles("Escalation" "Reputation" "Insult" "Certainty")
eststo clear





****************************** ANALYSIS OF EXPERIMENT 2 ************************************************

clear all
import delimited "Experiment2_Qatar.csv"
destring *, ignore("NA") replace

** Tables A8 and A9: Summary Statistics

sum age male hhi white black education republican democrat, d
sum esca_scaled denial reputation_scaled insulting certainty ma_scaled nc_scaled govtrust newstrust inttrust readfp, d


** Manipulation check, mentioned p. 16

tab ac3


** Figure 3 and Table A10: Main Regressions

eststo: reg esca_scaled denial ma_scaled nc_scaled govtrust newstrust inttrust readfp
estimates store m1 
eststo: reg reputation_scaled denial ma_scaled nc_scaled govtrust newstrust inttrust readfp
estimates store m2 
eststo: ologit insulting denial ma_scaled nc_scaled govtrust newstrust inttrust readfp 
estimates store m3
eststo: ologit certainty denial ma_scaled nc_scaled govtrust newstrust inttrust readfp
estimates store m4 

coefplot m1, title("M1: OLS Predicting Escalation Preferences") keep(denial ma_scaled nc_scaled govtrust newstrust inttrust readfp) legend(off) nolabel xline(0) coeflabels(reputation_scaled = "Reputation Scaled" denial = "Denial" ma_scaled = "Militant Assertiveness" nc_scaled = "National Chauvinism" govtrust = "Government Trust" newstrust = "News Trust" inttrust = "International Trust" readfp = "Foreign Policy Interest") 
graph save Graph "m1.gph", replace
coefplot m2, title("M2: OLS Predicting Reputation Concern") keep(denial ma_scaled nc_scaled govtrust newstrust inttrust readfp) legend(off) nolabel xline(0) coeflabels(reputation_scaled = "Reputation Scaled" denial = "Denial" ma_scaled = "Militant Assertiveness" nc_scaled = "National Chauvinism" govtrust = "Government Trust" newstrust = "News Trust" inttrust = "International Trust" readfp = "Foreign Policy Interest") 
graph save Graph "m2.gph", replace
coefplot m3, title("M3: Ordered Logit Predicting Insulted") keep(denial ma_scaled nc_scaled govtrust newstrust inttrust readfp) legend(off) nolabel xline(0) coeflabels(reputation_scaled = "Reputation Scaled" denial = "Denial" ma_scaled = "Militant Assertiveness" nc_scaled = "National Chauvinism" govtrust = "Government Trust" newstrust = "News Trust" inttrust = "International Trust" readfp = "Foreign Policy Interest") 
graph save Graph "m3.gph", replace
coefplot m4, title("M4: Ordered Logit Predicting Certainty") keep(denial ma_scaled nc_scaled govtrust newstrust inttrust readfp) legend(off) nolabel xline(0) coeflabels(reputation_scaled = "Reputation Scaled" denial = "Denial" ma_scaled = "Militant Assertiveness" nc_scaled = "National Chauvinism" govtrust = "Government Trust" newstrust = "News Trust" inttrust = "International Trust" readfp = "Foreign Policy Interest") 
graph save Graph "m4.gph", replace
gr combine m1.gph m2.gph m3.gph m4.gph
graph export Exp2CoefPlot.jpg, replace 

esttab using ResultsExp2.rtf, replace b(3) se(3) noconstant  star(* .10 ** .05 *** .01)  ///
	title("Iran: Escalation Preference and Mediators with Dispositional Controls") ///
	coeflabels(denial "Denial" ma_scaled "Military Assertiveness" nc_scaled "National Chauvinism" govtrust "Trust in Gov." newstrust "Trust in News" inttrust 		"International Trust" readfp "Foreign Policy Interest") ///
	mtitles("Escalation" "Reputation" "Certainty" "Insult")
eststo clear


** Table A11: Alternate regressions with no controls

eststo: reg esca_scaled denial 
eststo: reg reputation_scaled denial 
eststo: ologit insulting denial
eststo: ologit certainty denial 

esttab using ResultsExp2.rtf, append b(3) se(3) noconstant  star(* .10 ** .05 *** .01)  ///
	title("Iran: Escalation Preference and Mediators without Controls") ///
	coeflabels(denial "Denial") ///
	mtitles("Escalation" "Reputation" "Certainty" "Insulting")
eststo clear


** Table A12: Alternate regressions with demographic controls

eststo: reg esca_scaled denial age male hhi white education republican democrat
eststo: reg reputation_scaled denial age male hhi white education republican democrat
eststo: ologit insulting denial age male hhi white education republican democrat
eststo: ologit certainty denial age male hhi white education republican democrat

esttab using ResultsExp2.rtf, append b(3) se(3) noconstant  star(* .10 ** .05 *** .01)  ///
	title("Iran: Escalation Preference and Mediators with Demographic Controls") ///
	coeflabels(denial "Denial" age "Age" male "Male" hhi "Household Income" white "White" education "Education" republican "Republican" democrat "Democrat") ///
	mtitles("Escalation" "Reputation" "Certainty" "Insulting")
eststo clear


** Table A22, Model 2: Weighted dependent variable

reg esca_scaled_wa denial ma_scaled nc_scaled govtrust newstrust inttrust readfp
// We put Table A22 together manually, since it includes regressions in three different datasets.


** Table A24: Militant Assertiveness Interactions

eststo: reg esca_scaled c.denial##c.ma_scaled nc_scaled govtrust newstrust inttrust readfp  
eststo: reg reputation_scaled c.denial##c.ma_scaled nc_scaled govtrust newstrust inttrust readfp
eststo: ologit insulting c.denial##c.ma_scaled nc_scaled govtrust newstrust inttrust readfp  
eststo: ologit certainty c.denial##c.ma_scaled nc_scaled govtrust newstrust inttrust readfp  

esttab using ResultsExp2.rtf, append b(3) se(3) noconstant  star(* .10 ** .05 *** .01)  ///
	coeflabels(denial "Denial" ma_scaled "Militant Assertiveness" nc_scaled "National Chauvinism" govtrust "Trust in Gov." newstrust "Trust in News" inttrust 		"International Trust" readfp "Foreign Policy Interest") ///
	mtitles("Escalation" "Reputation" "Insult" "Certainty")
eststo clear


** Table A27: National Chauvinism Interactions

eststo: reg esca_scaled c.denial##c.nc_scaled ma_scaled govtrust newstrust inttrust readfp  
eststo: reg reputation_scaled c.denial##c.nc_scaled ma_scaled govtrust newstrust inttrust readfp
eststo: ologit insulting c.denial##c.nc_scaled ma_scaled govtrust newstrust inttrust readfp  
eststo: ologit certainty c.denial##c.nc_scaled ma_scaled govtrust newstrust inttrust readfp  

esttab using ResultsExp2.rtf, append b(3) se(3) noconstant  star(* .10 ** .05 *** .01)  ///
	coeflabels(denial "Denial" ma_scaled "Militant Assertiveness" nc_scaled "National Chauvinism" govtrust "Trust in Gov." newstrust "Trust in News" inttrust 		"International Trust" readfp "Foreign Policy Interest") ///
	mtitles("Escalation" "Reputation" "Insult" "Certainty")
eststo clear


** Table A30: International Trust Interactions

eststo: reg esca_scaled c.denial##c.inttrust ma_scaled nc_scaled govtrust newstrust readfp 
eststo: reg reputation_scaled c.denial##c.inttrust ma_scaled nc_scaled govtrust newstrust readfp
eststo: ologit insulting c.denial##c.inttrust ma_scaled nc_scaled govtrust newstrust readfp 
eststo: ologit certainty c.denial##c.inttrust ma_scaled nc_scaled govtrust newstrust readfp  

esttab using ResultsExp2.rtf, append b(3) se(3) noconstant  star(* .10 ** .05 *** .01)  ///
	coeflabels(denial "Denial" ma_scaled "Militant Assertiveness" nc_scaled "National Chauvinism" govtrust "Trust in Gov." newstrust "Trust in News" inttrust 		"International Trust" readfp "Foreign Policy Interest") ///
	mtitles("Escalation" "Reputation" "Insult" "Certainty")
eststo clear


** Table A33: Media Trust Interactions

eststo: reg esca_scaled c.denial##c.newstrust ma_scaled nc_scaled govtrust  inttrust readfp  
eststo: reg reputation_scaled c.denial##c.newstrust ma_scaled nc_scaled govtrust  inttrust readfp
eststo: ologit insulting c.denial##c.newstrust ma_scaled nc_scaled govtrust inttrust readfp  
eststo: ologit certainty c.denial##c.newstrust ma_scaled nc_scaled govtrust inttrust readfp 

esttab using ResultsExp2.rtf, append b(3) se(3) noconstant  star(* .10 ** .05 *** .01)  ///
	coeflabels(denial "Denial" ma_scaled "Militant Assertiveness" nc_scaled "National Chauvinism" govtrust "Trust in Gov." newstrust "Trust in News" inttrust 		"International Trust" readfp "Foreign Policy Interest") ///
	mtitles("Escalation" "Reputation" "Insult" "Certainty")
eststo clear


** Table A36: Government Trust Interactions

eststo: reg esca_scaled c.denial##c.govtrust ma_scaled nc_scaled newstrust inttrust readfp  
eststo: reg reputation_scaled c.denial##c.govtrust  ma_scaled nc_scaled newstrust inttrust readfp
eststo: ologit insulting c.denial##c.govtrust ma_scaled nc_scaled newstrust inttrust readfp  
eststo: ologit certainty c.denial##c.govtrust ma_scaled nc_scaled newstrust inttrust readfp  

esttab using ResultsExp2.rtf, append b(3) se(3) noconstant  star(* .10 ** .05 *** .01)  ///
	coeflabels(denial "Denial" ma_scaled "Militant Assertiveness" nc_scaled "National Chauvinism" govtrust "Trust in Gov." newstrust "Trust in News" inttrust 		"International Trust" readfp "Foreign Policy Interest") ///
	mtitles("Escalation" "Reputation" "Insult" "Certainty")
eststo clear





****************************** ANALYSIS OF EXPERIMENT 3 ************************************************

clear all
import delimited "Experiment3_Iran.csv"
destring *, ignore("NA") replace

** Tables A15 and A16: Summary Statistics

sum age male hhi white black education republican democrat, d
sum esca_scaled denial reputation_scaled insulting certainty ma_scaled nc_scaled govtrust newstrust inttrust readfp, d


** Manipulation check, mentioned p. 16

tab ac3


** Figure 5 and Table A17: Main Regressions

eststo: reg esca_scaled denial ma_scaled nc_scaled govtrust newstrust inttrust readfp
estimates store m1 
eststo: reg reputation_scaled denial ma_scaled nc_scaled govtrust newstrust inttrust readfp
estimates store m2 
eststo: ologit insulting denial ma_scaled nc_scaled govtrust newstrust inttrust readfp 
estimates store m3
eststo: ologit certainty denial ma_scaled nc_scaled govtrust newstrust inttrust readfp
estimates store m4 

coefplot m1, title("M1: OLS Predicting Escalation Preferences") keep(denial ma_scaled nc_scaled govtrust newstrust inttrust readfp) legend(off) nolabel xline(0) coeflabels(reputation_scaled = "Reputation Scaled" denial = "Denial" ma_scaled = "Militant Assertiveness" nc_scaled = "National Chauvinism" govtrust = "Government Trust" newstrust = "News Trust" inttrust = "International Trust" readfp = "Foreign Policy Interest") 
graph save Graph "m1.gph", replace
coefplot m2, title("M2: OLS Predicting Reputation Concern") keep(denial ma_scaled nc_scaled govtrust newstrust inttrust readfp) legend(off) nolabel xline(0) coeflabels(reputation_scaled = "Reputation Scaled" denial = "Denial" ma_scaled = "Militant Assertiveness" nc_scaled = "National Chauvinism" govtrust = "Government Trust" newstrust = "News Trust" inttrust = "International Trust" readfp = "Foreign Policy Interest") 
graph save Graph "m2.gph", replace
coefplot m3, title("M3: Ordered Logit Predicting Insulted") keep(denial ma_scaled nc_scaled govtrust newstrust inttrust readfp) legend(off) nolabel xline(0) coeflabels(reputation_scaled = "Reputation Scaled" denial = "Denial" ma_scaled = "Militant Assertiveness" nc_scaled = "National Chauvinism" govtrust = "Government Trust" newstrust = "News Trust" inttrust = "International Trust" readfp = "Foreign Policy Interest") 
graph save Graph "m3.gph", replace
coefplot m4, title("M4: Ordered Logit Predicting Certainty") keep(denial ma_scaled nc_scaled govtrust newstrust inttrust readfp) legend(off) nolabel xline(0) coeflabels(reputation_scaled = "Reputation Scaled" denial = "Denial" ma_scaled = "Militant Assertiveness" nc_scaled = "National Chauvinism" govtrust = "Government Trust" newstrust = "News Trust" inttrust = "International Trust" readfp = "Foreign Policy Interest") 
graph save Graph "m4.gph", replace
gr combine m1.gph m2.gph m3.gph m4.gph
graph export Exp2CoefPlot.jpg, replace 

esttab using ResultsExp3.rtf, replace b(3) se(3) noconstant  star(* .10 ** .05 *** .01)  ///
	title("Iran: Escalation Preference and Mediators with Dispositional Controls") ///
	coeflabels(denial "Denial" ma_scaled "Military Assertiveness" nc_scaled "National Chauvinism" govtrust "Trust in Gov." newstrust "Trust in News" inttrust 		"International Trust" readfp "Foreign Policy Interest") ///
	mtitles("Escalation" "Reputation" "Certainty" "Insult")
eststo clear


** Table A18: Alternate regressions with no controls

eststo: reg esca_scaled denial 
eststo: reg reputation_scaled denial 
eststo: ologit insulting denial
eststo: ologit certainty denial 

esttab using ResultsExp3.rtf, append b(3) se(3) noconstant  star(* .10 ** .05 *** .01)  ///
	title("Iran: Escalation Preference and Mediators without Controls") ///
	coeflabels(denial "Denial") ///
	mtitles("Escalation" "Reputation" "Certainty" "Insulting")
eststo clear


** Table A19: Alternate regressions with demographic controls

eststo: reg esca_scaled denial age male hhi white education republican democrat
eststo: reg reputation_scaled denial age male hhi white education republican democrat
eststo: ologit insulting denial age male hhi white education republican democrat
eststo: ologit certainty denial age male hhi white education republican democrat

esttab using ResultsExp3.rtf, append b(3) se(3) noconstant  star(* .10 ** .05 *** .01)  ///
	title("Iran: Escalation Preference and Mediators with Demographic Controls") ///
	coeflabels(denial "Denial" age "Age" male "Male" hhi "Household Income" white "White" education "Education" republican "Republican" democrat "Democrat") ///
	mtitles("Escalation" "Reputation" "Certainty" "Insulting")
eststo clear


** Table A22, Model 3: Weighted dependent variable

reg esca_scaled_wa denial ma_scaled nc_scaled govtrust newstrust inttrust readfp
// We put Table A22 together manually, since it includes regressions in three different datasets.


** Table A25: Militant Assertiveness Interactions

eststo: reg esca_scaled c.denial##c.ma_scaled nc_scaled govtrust newstrust inttrust readfp  
eststo: reg reputation_scaled c.denial##c.ma_scaled nc_scaled govtrust newstrust inttrust readfp
eststo: ologit insulting c.denial##c.ma_scaled nc_scaled govtrust newstrust inttrust readfp  
eststo: ologit certainty c.denial##c.ma_scaled nc_scaled govtrust newstrust inttrust readfp  

esttab using ResultsExp3.rtf, append b(3) se(3) noconstant  star(* .10 ** .05 *** .01)  ///
	coeflabels(denial "Denial" ma_scaled "Militant Assertiveness" nc_scaled "National Chauvinism" govtrust "Trust in Gov." newstrust "Trust in News" inttrust 		"International Trust" readfp "Foreign Policy Interest") ///
	mtitles("Escalation" "Reputation" "Insult" "Certainty")
eststo clear


** Table A28: National Chauvinism Interactions

eststo: reg esca_scaled c.denial##c.nc_scaled ma_scaled govtrust newstrust inttrust readfp  
eststo: reg reputation_scaled c.denial##c.nc_scaled ma_scaled govtrust newstrust inttrust readfp
eststo: ologit insulting c.denial##c.nc_scaled ma_scaled govtrust newstrust inttrust readfp  
eststo: ologit certainty c.denial##c.nc_scaled ma_scaled govtrust newstrust inttrust readfp  

esttab using ResultsExp3.rtf, append b(3) se(3) noconstant  star(* .10 ** .05 *** .01)  ///
	coeflabels(denial "Denial" ma_scaled "Militant Assertiveness" nc_scaled "National Chauvinism" govtrust "Trust in Gov." newstrust "Trust in News" inttrust 		"International Trust" readfp "Foreign Policy Interest") ///
	mtitles("Escalation" "Reputation" "Insult" "Certainty")
eststo clear


** Table A31: International Trust Interactions

eststo: reg esca_scaled c.denial##c.inttrust ma_scaled nc_scaled govtrust newstrust readfp 
eststo: reg reputation_scaled c.denial##c.inttrust ma_scaled nc_scaled govtrust newstrust readfp
eststo: ologit insulting c.denial##c.inttrust ma_scaled nc_scaled govtrust newstrust readfp 
eststo: ologit certainty c.denial##c.inttrust ma_scaled nc_scaled govtrust newstrust readfp  

esttab using ResultsExp3.rtf, append b(3) se(3) noconstant  star(* .10 ** .05 *** .01)  ///
	coeflabels(denial "Denial" ma_scaled "Militant Assertiveness" nc_scaled "National Chauvinism" govtrust "Trust in Gov." newstrust "Trust in News" inttrust 		"International Trust" readfp "Foreign Policy Interest") ///
	mtitles("Escalation" "Reputation" "Insult" "Certainty")
eststo clear


** Table A34: Media Trust Interactions

eststo: reg esca_scaled c.denial##c.newstrust ma_scaled nc_scaled govtrust  inttrust readfp  
eststo: reg reputation_scaled c.denial##c.newstrust ma_scaled nc_scaled govtrust  inttrust readfp
eststo: ologit insulting c.denial##c.newstrust ma_scaled nc_scaled govtrust inttrust readfp  
eststo: ologit certainty c.denial##c.newstrust ma_scaled nc_scaled govtrust inttrust readfp 

esttab using ResultsExp3.rtf, append b(3) se(3) noconstant  star(* .10 ** .05 *** .01)  ///
	coeflabels(denial "Denial" ma_scaled "Militant Assertiveness" nc_scaled "National Chauvinism" govtrust "Trust in Gov." newstrust "Trust in News" inttrust 		"International Trust" readfp "Foreign Policy Interest") ///
	mtitles("Escalation" "Reputation" "Insult" "Certainty")
eststo clear


** Table A37: Government Trust Interactions

eststo: reg esca_scaled c.denial##c.govtrust ma_scaled nc_scaled newstrust inttrust readfp  
eststo: reg reputation_scaled c.denial##c.govtrust  ma_scaled nc_scaled newstrust inttrust readfp
eststo: ologit insulting c.denial##c.govtrust ma_scaled nc_scaled newstrust inttrust readfp  
eststo: ologit certainty c.denial##c.govtrust ma_scaled nc_scaled newstrust inttrust readfp  

esttab using ResultsExp3.rtf, append b(3) se(3) noconstant  star(* .10 ** .05 *** .01)  ///
	coeflabels(denial "Denial" ma_scaled "Militant Assertiveness" nc_scaled "National Chauvinism" govtrust "Trust in Gov." newstrust "Trust in News" inttrust 		"International Trust" readfp "Foreign Policy Interest") ///
	mtitles("Escalation" "Reputation" "Insult" "Certainty")
eststo clear


